5 REM *SEE STATEMENT AT END OF LISTING*
10 A$="[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
20 A$=A$+"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
30 B$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
40 B$=B$+"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
50 C$="[180]                                       "
55 C$=C$+"                                       [170]"
60 PRINT"[147]":POKE53280,2:POKE53281,2
70 PRINT""
75 PRINT" COMPILED BY:               DONN WALTER"
80 PRINT"[206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]"
90 PRINT"[145][180]                                      [170]"
100 PRINT"[145][180]  [155][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][209][155][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]  [170]"
102 PRINT"[145][180]  [155][207][183][183][183][183][170][155][183][183][183][183][183][183][183][183][183][170][155][183][209][155][183][183][183][183][183][183][170][155][183][183][183][183][183][183][183][183][208]  [170]"
104 PRINT"[145][180]  [155][207][183][183][183][183][170][155][183][183][183][183][183][183][183][183][183][170][155][183][170][155][183][183][183][183][183][183][170][155][183][183][183][183][183][183][183][183][208]  [170]"
106 PRINT"[145][180]  [155][207][183][183][183][183][209][155][183][183][183][183][183][183][183][183][183][183][205][155][170][155][183][183][183][183][183][183][209][155][183][183][183][183][183][183][183][183][208]  [170]"
108 PRINT"[145][180]  [155][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]  [170]"
110 PRINT"[145][180]      [153] S T A F F   W R I T E R        [170]"
112 PRINT"[145][180]                                      [170]"
114 PRINT"[145][180]                                      [170]"
116 PRINT"[145][180]      PRESS [155](1[155])   =  SINGLE STAFF     [170]"
118 PRINT"[145][180]                                      [170]"
120 PRINT"[145][180]                                      [170]"
122 PRINT"[145][180]      PRESS [155](2[155])   =  DOUBLE STAFF     [170]"
124 PRINT"[145][180]                                      [170]"
126 PRINT"[145][180]                                      [170]"
128 PRINT"[145][180]                                      [170]"
130 PRINT"[145][180]                                      [170]"
132 PRINT"[145][180]                                      [170]"
134 PRINT"[145][205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]"
140 PRINT"PLEASE TURN PRINTER ON BEFORE GOING ON:"
150 GETK$:IF K$="" THEN 150
160 PRINT"[145][145][145][145][145][145]PLEASE WAIT WHILE PRINTING....."
165 PRINT"[145][144][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
170 IF K$<>"1" AND K$<>"2" THEN 150
180 IF K$="1" THEN GOTO 210
190 IF K$="2" THEN GOTO 400
210 OPEN4,4
220 PRINT#4,CHR$(27);CHR$(10);CHR$(22)
230 FOR O=1 TO 9
240 PRINT#4:PRINT#4:PRINT#4:PRINT#4
250 FOR I=1 TO 4
260 PRINT#4,A$
270 NEXT I
275 PRINT#4,B$
280 NEXT O
290 PRINT#4,CHR$(0)
300 CLOSE4
310 GOTO700
400 OPEN4,4
410 PRINT#4,CHR$(27);CHR$(10);CHR$(22)
420 FOR O=1 TO 5
430 PRINT#4:PRINT#4:PRINT#4:PRINT#4
440 FOR I=1 TO 5
450 PRINT#4,A$
460 NEXT I
470 FOR P=1 TO 3
480 PRINT#4,C$
490 NEXT P
500 FOR I=1 TO 4
510 PRINT#4,A$
520 NEXT I
530 PRINT#4,B$
540 NEXT O
550 PRINT#4,CHR$(0)
560 CLOSE4
570 GOTO 700
700 PRINT"[147]":POKE53281,9:POKE53280,9
710 PRINT"WOULD YOU LIKE TO PRINT ANOTHER?"
715 PRINTTAB(17)"(Y/N)"
717 PRINT" COMPILED BY:               DONN WALTER"
720 GET K$:IF K$=""THEN 720
730 IF K$="Y" THEN GOTO 10
740 IF K$="N" THEN PRINT"[147]SEE Y'ALL LATER!!!
750 [128]
780 [143]   **************************
790 [143]   *                        *
800 [143]   *  PLEASE NOTICE LINES:  *
810 [143]   *                        *
820 [143]   *    220         410     *
830 [143]   *    290         550     *
840 [143]   *                        *
850 [143]   *  THESE LINES ARE CHR$  *
860 [143]   *       STATEMENTS       *
870 [143]   *   FOR CONDENSED LINE   *
880 [143]   * CONTROL AND DEFAULT ON *
890 [143]   *      A STAR GEMINI     *
900 [143]   *         PRINTER!       *
910 [143]   *                        *
920 [143]   *  THEY MAY NEED EDITING *
930 [143]   *    IN ORDER TO WORK    *
940 [143]   *    ON YOUR PRINTER!    *
950 [143]   *                        *
960 [143]   **************************